﻿
Module Module1

    Sub Main()
        Dim dhs As New DayHocSinh
        dhs = DayHocSinh.Nhap()

        Console.Write(dhs.Xuat())
        Dim hs As New HocSinh
        hs = HocSinh.Nhap()
        dhs.Them(hs)
        Console.Write(dhs.Xuat())
        Dim vitri As Integer
        Console.Write("vi tri muon xoa:", vitri)
        vitri = Console.ReadLine()
        If (dhs.Xoa(vitri - 1) = True) Then
            Console.Write("Da xoa thanh cong ")
            Console.Write(dhs.Xuat())
        Else
            Console.Write("nhap lai vi tri di, khong ton tai hoc sinh nay")
        End If
        'muon sua
        Console.Write("vi tri muon sua:", vitri)
        vitri = Console.ReadLine()
        If (dhs.Sua(vitri - 1, hs) = True) Then
            hs = HocSinh.Nhap()
            Console.Write("Da sua thanh cong ")
            Console.Write(dhs.Xuat())
        Else
            Console.Write("nhap lai vi tri di, khong ton tai hoc sinh nay")
        End If

        Console.ReadLine()
    End Sub

End Module
